% Autor:
% Fecha: 04/06/2013

norte(S) :- orientacion([-1,0],S).
este(S) :- orientacion([0,1],S).
sur(S) :- orientacion([1,0],S).
oeste(S) :- orientacion([0,-1],S).

%%% Sentencias Extras
adelante([X1,Y1],S) :- posicion([X2,Y2],S),orientacion([X3,Y3],S),X1 is X2 + X3,Y1 is Y2 + Y3.
aLaIzquierda([X1,Y1],S) :- orientacion([X2,Y2],S),X1 is Y2 * (-1),Y1 is X2.
aLaDerecha([X1,Y1],S) :- orientacion([X2,Y2],S),X1 is Y2,Y1 is X2 * (-1).
hayLlave(S) :- posicion([X,Y],S),llave([X,Y]).


orientacion([X,Y],S) :- X is -1,Y is 0,S is 1.
posicion([X,Y],S) :- X is 5,Y is 5,S is 1.
llave([5,5]).

distancia([X1,Y1],[X2,Y2],D) :- D is abs(X2 - X1) + abs(Y2 - Y1).

nro(X) :- X is 5.
nro(X) :- X is 1.
nro(X) :- X is 10.

mayor(X) :- X is 5.
elMayor(Y) :- mayor(X),nro(Y),X =\= Y,Y > X,!.
elMayor(X) :- mayor(X).